﻿Public Class Alerta

    Dim _alecodigo, _alepdpcodigo, _alepedcodigo, _alepickcodigo, _aleusuenv, _aleusurec, _alefecing, _alefeclec, _aledescrip As String

    Sub New()

    End Sub

    Sub New(ByVal alepdpcod As String, ByVal alepedcod As String, ByVal alepickcod As String, ByVal aleusuenv As String, ByVal _aledescrip As String)
        Me._alepdpcodigo = alepdpcod
        Me._alepedcodigo = alepedcod
        Me._alepickcodigo = alepickcod
        Me._aleusuenv = aleusuenv
        Me._aledescrip = _aledescrip
    End Sub

    Sub New(ByVal ale_codigo As String, ByVal aleusurec As String)
        Me._alecodigo = ale_codigo
        Me._aleusurec = aleusurec
    End Sub

    Public Property ALE_CODIGO() As String
        Get
            Return _alecodigo
        End Get
        Set(ByVal value As String)
            _alecodigo = value
        End Set
    End Property

    Public Property ALE_PDP_Codigo() As String
        Get
            Return _alepdpcodigo
        End Get
        Set(ByVal value As String)
            _alepdpcodigo = value
        End Set
    End Property

    Public Property ALE_PED_Codigo() As String
        Get
            Return _alepedcodigo
        End Get
        Set(ByVal value As String)
            _alepedcodigo = value
        End Set
    End Property

    Public Property ALE_PICK_Codigo() As String
        Get
            Return _alepickcodigo
        End Get
        Set(ByVal value As String)
            _alepickcodigo = value
        End Set
    End Property

    Public Property ALE_UsuarioEnv() As String
        Get
            Return _aleusuenv
        End Get
        Set(ByVal value As String)
            _aleusuenv = value
        End Set
    End Property

    Public Property ALE_UsurioRec() As String
        Get
            Return _aleusurec
        End Get
        Set(ByVal value As String)
            _aleusurec = value
        End Set
    End Property

    Public Property ALE_FecIngreso() As String
        Get
            Return _alefecing
        End Get
        Set(ByVal value As String)
            _alefecing = value
        End Set
    End Property

    Public Property ALE_FecLectura() As String
        Get
            Return _alefeclec
        End Get
        Set(ByVal value As String)
            _alefeclec = value
        End Set
    End Property

    Public Property ALE_Descripcion() As String
        Get
            Return _aledescrip
        End Get
        Set(ByVal value As String)
            _aledescrip = value
        End Set
    End Property

End Class
